home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 December / macformat-057.iso / mac / Demos / Lineker's Real Football Demo / DATA / MenuApp.cst / 00009.ls < prev    next >
Encoding:
Text File  |  1997-08-26  |  3.6 KB  |  141 lines
  1. global TheItem
  2.  
  3. on startMovie
  4.   set the menuForecolor of member "Club Analysis" to 255
  5.   set the menuForecolor of member "Premier History" to 255
  6.   set the menuForecolor of member "League Computer" to 255
  7.   set the menuForecolor of member "Quit" to 255
  8.   
  9.   set the menuBackcolor of member "Club Analysis" to 0
  10.   set the menuBackcolor of member "Premier History" to 0
  11.   set the menuBackcolor of member "League Computer" to 0
  12.   set the menuBackcolor of member "Quit" to 0
  13.   
  14.   disableClubAnalysis
  15.   disablePremierHistory
  16.   disableLeagueComputer
  17.   disableQuit
  18. end
  19.  
  20. on disableClubAnalysis
  21.   set MenuCount = [1,2,3,4]
  22.   set ItemCount = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]
  23.   set TheItem = []
  24.   
  25.   repeat with x = 2 to 20
  26.     put string((getAt(MenuCount,1))) & ";" & string((getAt(ItemCount,x))) into TheItem
  27.     disableItem (member "Club Analysis", TheItem)
  28.   end repeat
  29.   
  30.   repeat with x = 2 to 20
  31.     put string((getAt(MenuCount,2))) & ";" & string((getAt(ItemCount,x))) into TheItem
  32.     disableItem (member "Club Analysis", TheItem)
  33.   end repeat
  34.   
  35.   repeat with x = 2 to 20
  36.     put string((getAt(MenuCount,3))) & ";" & string((getAt(ItemCount,x))) into TheItem
  37.     disableItem (member "Club Analysis", TheItem)
  38.   end repeat
  39.   
  40.   repeat with x = 2 to 20
  41.     put string((getAt(MenuCount,4))) & ";" & string((getAt(ItemCount,x))) into TheItem
  42.     disableItem (member "Club Analysis", TheItem)
  43.   end repeat
  44. end
  45.  
  46. on disablePremierHistory
  47.   set TheItem = []
  48.   
  49.   repeat with x = 1 to 25
  50.     put string(1) & ";" & string(x) into TheItem
  51.     disableItem (member "Premier History", TheItem)
  52.   end repeat
  53.   
  54.   repeat with x = 1 to 31
  55.     put string(2) & ";" & string(x) into TheItem
  56.     disableItem (member "Premier History", TheItem)
  57.   end repeat
  58.   
  59. --  repeat with x = 2 to 20
  60. --    put string(3) & ";" & string(x) into TheItem
  61. --    disableItem (member "Premier History", TheItem)
  62. --  end repeat
  63.   
  64. end
  65.  
  66. on disableLeagueComputer
  67.   set TheItem = []
  68.   
  69.   repeat with x = 1 to 20
  70.     put string(2) & ";" & string(x) into TheItem
  71.     disableItem (member "League Computer", TheItem)
  72.   end repeat
  73.   
  74.   repeat with x = 1 to 1
  75.     put string(3) into TheItem
  76.     disableItem (member "League Computer", TheItem)
  77.   end repeat
  78. end
  79.  
  80. on disableQuit
  81.   set TheItem = []
  82.   
  83.   repeat with x = 2 to 3
  84.     put string(x) into TheItem
  85.     disableItem (member "Quit", TheItem)
  86.   end repeat
  87. end
  88.  
  89.  
  90. on CheckClubAnalysisMenu
  91.   if the selectedSpec of member "Club Analysis" = "1;1" then
  92.     go to movie "afc_his"
  93.   else if the selectedSpec of member "Club Analysis" = "2;1" then
  94.     go to movie "afc_ps"
  95.   else if the selectedSpec of member "Club Analysis" = "3;1" then
  96.     go to movie "afc_sq"
  97.   else if the selectedSpec of member "Club Analysis" = "4;1" then
  98.     go to movie "afc_sta"
  99.   else
  100.     nothing
  101.   end if
  102. end
  103.  
  104. on CheckPremierHistoryMenu
  105.   if the selectedSpec of member "Premier History" = "3;1" then
  106.     go to movie "afc_deta"
  107.   else
  108.     nothing
  109.   end if
  110. end
  111.  
  112. on CheckLeagueComputerMenu
  113.   --  alert the selectedSpec of member "League Computer"
  114.   if the selectedSpec of member "League Computer" = "1" then
  115.     go to movie "wbw"
  116.   else if the selectedSpec of member "League Computer" = "2;1" then
  117.     go to movie "afc_cbc"
  118.   else
  119.     nothing
  120.   end if
  121. end
  122.  
  123. on CheckQuitMenu
  124.   if the selectedSpec of member "quit" = "1" then
  125.     go to movie "start"
  126.   else if the selectedSpec of member "quit" = "2" then
  127.     alert " Actual Football 1997/98 AboutBox"
  128.   else if the selectedSpec of member "quit" = "3" then
  129.     alert "This will allow the user to correct system date..."
  130.   else if the selectedSpec of member "quit" = "4" then
  131.     UNLOAD
  132.     QUIT    
  133.   else
  134.     nothing
  135.   end if
  136. end
  137.  
  138.  
  139.  
  140.  
  141.